/e {  
  %text = $replace(*1,a,â)
  %text = $replace(%text,A,Ã)
  %text = $replace(%text,b,ß)
  %text = $replace(%text,ae,æ)
  %text = $replace(%text,c,¢)
  %text = $replace(%text,d,Ð)
  %text = $replace(%text,e, ë)
  %text = $replace(%text,E, ë)
  %text = $replace(%text,i,¦)
  %text = $replace(%text,l,£)
  %text = $replace(%text,m,/|\)
  %text = $replace(%text,n, ñ)
  %text = $replace(%text,o,ø)
  %text = $replace(%text,O,ö)
  %text = $replace(%text,P,þ)
  %text = $replace(%text,w,\\')
  %text = $replace(%text,W,\\')
  %text = $replace(%text,f,f)
  %text = $replace(%text,F,f)
  %text = $replace(%text,cks,X)
  %text = $replace(%text,r,®)
  %text = $replace(%text,s,§ )
  %text = $replace(%text,t,t)
  %text = $replace(%text,T,t)
  %text = $replace(%text,u,û)
  %text = $replace(%text,y,ÿ)
  %text = $replace(%text,?,¿)
  %text = $replace(%text,z,°z°)
  %text = $replace(%text,!,¡)
  /msg $Active %text 
}
/rainbow {
  unset %textfinal
  set %rainbow *1
  set %text.change 0
  :beginning
  inc %text.change
  if %text.change > $len(%rainbow) goto end
  set %rand1 $rand(1,15)
  set %text2add  $+ %rand1 $+ $mid(%text.change,1,%rainbow) $+ 
  if (%text.change == 1) { set %textfinal %text2add }
  else set %textfinal %textfinal $+ %text2add
  goto beginning
  :end
  msg $chan %textfinal
}
/bgr {
  unset %textfinal
  set %rainbow *1
  set %text.change 0
  :beginning
  inc %text.change
  if %text.change > $len(%rainbow) goto end
  :randomize
  set %rand1 $rand(1,15)
  set %rand2 $rand(1,15)
  if %rand1 == %rand2 goto randomize
  set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%text.change,1,%rainbow) $+ 
  if (%text.change == 1) { set %textfinal %text2add }
  else set %textfinal %textfinal $+ %text2add
  goto beginning
  :end
  msg $chan %textfinal
}
;xxxxxxxxxxxxxxxxxxxxxxxxx ALL FOREGROUND COLORS 1-15 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/c say 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx RAINBOW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/r {
  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) !=  ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  say %o
  unset %o %i %p %c
}
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BRICK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx SMILY xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/smile say 1,8:)
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx X-MAS xxxxxxxxxxxxxxxxxxxxxxxxxxxx
/xmas { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 3 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 3 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx RAINBOW xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/r {
  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) !=  ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  say %o
  unset %o %i %p %c
}
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx BRICK xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Coca Cola xxxxxxxxxxxxxxxxxxxxxxxxxxxx
/coke { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}